home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / jmstring.zip / JMDEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1993-01-04  |  1KB  |  53 lines
  1. program jmdemo ;
  2. uses crt, jmstring ;
  3.  
  4. var
  5.    ch : char ;
  6.     s : string;
  7.  
  8. procedure pause ;
  9. begin
  10.    writeln ;
  11.    writeln ;
  12.    writeln ;
  13.    writeln ('Press any key to continue...') ;
  14.    ch := readKey ;
  15.    clrscr ;
  16.    writeln ('JMDEMO - A demonstration of the JMString unit.') ;
  17. end ;
  18.  
  19. begin
  20.    clrscr ;
  21.    writeln ('JMDEMO - A demonstration of the JMString unit.') ;
  22.    pause ;
  23.    writeln ;
  24.    s := ' for i         := 1 to        100 do begin' ;
  25.    write   ('The string    : ');
  26.    writeln (s) ;
  27.    writeln ;
  28.    writeln ('"compacts" to : ',compact(s)) ;
  29.    pause ;
  30.    writeln ;
  31.    writeln ;
  32.    write ('The same string "toUppers" to : ') ;
  33.    writeln (toUpper(s)) ;
  34.    pause ;
  35.    s := 'HELLO WORLD' ;
  36.    writeln ;
  37.    writeln ;
  38.    write   ('The string    : ') ;
  39.    writeln (s) ;
  40.    writeln ('"toLowers" to : ',toLower(s)) ;
  41.    pause ;
  42.    writeln ;
  43.    writeln ;
  44.    write ('The string ',s,' ') ;
  45.    write ('is') ;
  46.    if isType(s,numerics) then write (' ')
  47.    else write (' not ') ;
  48.    writeln ('numerical data.') ;
  49.    pause ;
  50.    writeln;
  51.    writeln ;
  52. end.
  53.